home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / techno1a / techabou.frm < prev    next >
Text File  |  1999-09-14  |  3KB  |  101 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    Caption         =   "Volume 1 September 1, 1999"
  4.    ClientHeight    =   4875
  5.    ClientLeft      =   4410
  6.    ClientTop       =   2655
  7.    ClientWidth     =   5595
  8.    Icon            =   "techabout.frx":0000
  9.    LinkTopic       =   "Form3"
  10.    ScaleHeight     =   4875
  11.    ScaleWidth      =   5595
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Back"
  14.       Height          =   375
  15.       Left            =   240
  16.       TabIndex        =   3
  17.       Top             =   4200
  18.       Width           =   855
  19.    End
  20.    Begin VB.Label Label3 
  21.       Alignment       =   2  'Center
  22.       Caption         =   "This Months  Thanks go to Charlie Vance for mailing me the text version of this."
  23.       BeginProperty Font 
  24.          Name            =   "Algerian"
  25.          Size            =   14.25
  26.          Charset         =   0
  27.          Weight          =   400
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       ForeColor       =   &H00FF0000&
  33.       Height          =   1215
  34.       Left            =   1080
  35.       TabIndex        =   4
  36.       Top             =   2640
  37.       Width           =   3375
  38.    End
  39.    Begin VB.Label Label1 
  40.       Caption         =   "To Subscribe to Tech Notes E-Mail Scottw68@msn.com.  Every Month there will be a new edition. "
  41.       Height          =   735
  42.       Index           =   1
  43.       Left            =   2640
  44.       TabIndex        =   2
  45.       Top             =   4080
  46.       Width           =   2895
  47.    End
  48.    Begin VB.Label Label1 
  49.       Caption         =   $"techabout.frx":0442
  50.       BeginProperty Font 
  51.          Name            =   "MS Sans Serif"
  52.          Size            =   12
  53.          Charset         =   0
  54.          Weight          =   700
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   1935
  60.       Index           =   0
  61.       Left            =   480
  62.       TabIndex        =   1
  63.       Top             =   600
  64.       Width           =   4695
  65.    End
  66.    Begin VB.Label Label2 
  67.       Caption         =   "TECH NOTES"
  68.       BeginProperty Font 
  69.          Name            =   "Tahoma"
  70.          Size            =   21.75
  71.          Charset         =   0
  72.          Weight          =   700
  73.          Underline       =   0   'False
  74.          Italic          =   -1  'True
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       ForeColor       =   &H00FF0000&
  78.       Height          =   495
  79.       Left            =   0
  80.       TabIndex        =   0
  81.       Top             =   0
  82.       Width           =   3015
  83.    End
  84. End
  85. Attribute VB_Name = "Form3"
  86. Attribute VB_GlobalNameSpace = False
  87. Attribute VB_Creatable = False
  88. Attribute VB_PredeclaredId = True
  89. Attribute VB_Exposed = False
  90. Option Explicit
  91.  
  92. Private Sub Command1_Click()
  93. Form3.Hide
  94. Form1.Show
  95. End Sub
  96.  
  97. Private Sub Label3_Click()
  98.  
  99. Label3.ForeColor = QBColor(4)
  100. End Sub
  101.